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// 

//Procedure Upgrade 

// Performs a width upgrade of a network^ with num_rows total rows. 
// '*vw«it to relabel'' may be^tme" or **felse" each time Hie statement is rea^sh&d 

II 

Procedure Upgrade 

£(M(current_rowN);ciaTeiit_row<nui!i_rows;ciirren^ { 

insert R(curr«itjrow,N) in position /MserTiow j««if/on(airreiit_row); 
i^curreiit_row>l) { 

if(R(curreiit_row-l should be connected to R(airr«it_rowJSO) 
Connect R(cwrrent_row-l JST) to R(current_rowJSr); 

} 

} 

do{ 

start 

iSwant to relabel) { 
V3 i^any router, curr«it_router, can be relabeled) { 

tl relabel jwr&(airr€iit_router); 
%l gcfio starts 

8SS ^ 

u } 

select assy port mA connected to corresp(mdir^j>ort(patt); 
t^r^t_port=correspofjdir^ j?Qr/(port); 
'l'^ i^targetjport is alrea^ connected) { 

55 disc<Hmected_portF=p0rt currently o<M3nected to tai^t _port; 

C3 2>wcow«^c/(targBtj^t,discoiinected jort); 

ij'l, Con?zec^(port,target_port); 

} vsMe(there are misconnected ports); 
conne<^_extemal_ports^% 
t*^! activate extemd j)ortsQ\ 

ru 



Fig. 9A 



// 

//Procedure Upgrade 

// Performs a width upgrade of an RCCBG network wi^ a &nout of fanoat, 

// nui!i_routers_per_row per row prior to width upgrade,and niun_rows total rows. Also, 

// RELABEL_AVAILABL£ flag if swapping of ports in a single router <^ be pedimned without 

// breaking oonnecticMis. 

// 

Procedure Upgrade 

for(current rowN);currciit_row<num_rows;ciirr«it row++) { 

insert R(ciirresBt_row, N) in position insertion jfositiofi(€mrmt_rGw); 
ij8;CTrr«it_row>l) { 

if(R(ciirr«it_row-l jNf) should be connected to R(airrait_rowJ^) 
Connect R(ciirr^t_row-l JST) to R(current_rowJSr); 

} 

> 

p for(rmdex==0;,rindex<num_rows-l;rindex++) { 

curr^t royv==r€n^_select{rmdei)y 

i«(RELABEL_AVAILABLE){ 
;« relcbel jwrfe'(curr^t_row); 

1? } 

disc(Hinecl:ed_porfF=None; // Holds the port previously disconnected by the last rewire st^ 
vML&{i^Tt=^select j7orr(discoiiiiecledjport,c«irrait__row))!=None) { 

«E targiB^^jM3rt=vorrespondiT^_jx»ih(]^^ 
if(target_jM>rt is abeady connected) { 

pa disc(Hinect€d_portF=port currently connected to target_port; 

'"f^ Dzsconn&c/(target_jM>rt,disGoimectedjpor 

•1*' y 

Connect(portM^tjoH% 

!:! > 

Q cortnect_extemal_ponsQ; 



fy actr^ate yxtem^d jxfrtsQ; 
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// 



//Simplificatiosi fimctioos. 



// 



FuEictim c0rivGfjmKrl(p(»*tl4MNrf2) 
{ 

i^ortl can be pK^erdy oonneot to p<H^>etiHn(TRUE); 
else retuni(FALSE); 



import is a bottom port) { 

return top port of roito in next row that should be prop^ly connected to port port; 



return bott<»n port of rout^ in the previous row tiiat shcmld be properly connected to port port; 



} 

} 

Fanctfon Dtsemmedfportl^partZ) 

{ 

Divert traffic a^y from portl ; 
Etivert tra£&c away fcom port2 ; 
Disconnect connection betwe^ portl and poittl ; 

} 

Function Com^c^portl.portl) 
{ 

Connect portl and pwll ; 

Allow traffic to flow tbrou^ pcMrtl ; 

Allow traffic to fiowlhrou^ P^^^ I 

} 



} 

Func^m corresponding^por^port) 

{ 



} else { 
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Function mserdon_pomtlon{rim) II Add a column versdoo 



retiini(number_of_routers__p^_row+-l); 

} 

Function insertion jfoidtion(rGw) II ¥<x Fig3B 



swttch(row) { 
case 0: 

return 4; 
case 1: 

return 4; 
case 2: 

return 3; 
case 3: 



Fmeiiimmsertion _posbhn(r€w) IIForFig3C 

{ 

swttch(row) { 
caseO: 

return 1; 
case 1: 

return 4; 
case 2: 

return 3; 
case 3: 



return 0; 



return 1: 



} 



} 




Function r€w select{rowJndex) { 
ifl^num^rows is even) { 

start_row=inim_rows/2-l ; 
} else { 

start_row=(num_rows-l)/2; 



i^row_index is even) { 

retiHii(start_row+row_index/2); 



} else{ 

retiini(start_row-(raw_index+l)/^); 





Function i'im'_se&cl(row_index) { 
retum(row_mciex); 

} 




1 
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Function select j?or/(dport,cuiT«it_row) // optimal dpoit is not used 

port_jM)oh={port bottcm ports of routers inrow, cuircaat^row and top port of routeis inrow, 

airr©tit_row4-l not coonected to correspondir^_pori(port)y^ 
lIYot simplicity <Mrder li^t to left 
// First criterion 
for port in portjpool { 

tSi^discormect&M^&ti) Sl8l disconmctedicorresponding jwrr(port))retuni(pOTt); 

// Second <aiterion:This basically says w© prefer to target c<»]nectioDS fliat break 
// connections only on fully populated rowters 
for port in port_pool { 

iS^disconmctediport) && 

mm_dwc<mnectiom{rmjiterj>fipGrt_connectedJ^^ { 

retum(port); 

} 

p // Third crit^onrAny^ port that is not cooneoted 

£i for port in por t j>od { 

iy if(ifisca«wecf^<i(pm^^ 

|sa } 

11 Catdi all for any ports left over:Not likely to be needed 
^^'^^ for port in port jjool { 

retum(port); 

;|5 } 

g retumCNone); 



m 
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Functioii select jwi^dport^w) //fill the hole 
{ 

if(dport !=None)retiim(dport); 

for all bottom ports, port, of routers in row carr«it_row scanning ftom rigjjt to left { 
iG[port is not connected to correspandt^jK>rt(port)) r€*iiro(port); 

} 

r^um None; // No nMwe ports to revwre 

} 

} 
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FuQotkMi select_port(dport,currart_row) // toaod tobin 
{ 

// This requires a FIFO of ports 
ijB[port_fifo empty) { 

port_fifoF={porfc bottom ports of routers in row, curraitjrow and top port of routers in row, 
cwrr«it_row+l wbidi are disconnected}; 
ifl^rtjpool empty) { 

port_pool={port bottom ports of routers in row, curr«it_row and top port of routers in row, 

current_rowH-l not conneoted to corresponding jfortfj^ri)}., 
for port in port_pool { 
retuni)(port); 

} 

// Cateh all for any ports left ovenNot likely to be needed 
por^any p<»t not connected to proper port 
ifiport exists) { 

retimi(port); 
}else { 

retum(None); 

} 

} 

port=top of port_fifo ; 
remove top of pwt_fifo ; 
retum(port); 

Fig. 12C 



Fimctio!! rehbeljp(nis(current_row) 
{ 

for(F=0;i<rmito^_per_row;i-H-) { 

for(bportl=0;bjportl<fanout;bportl-H-) { 

fQi<bp<»i2N);bpQri2<faiiou^ { 

//Test to see if the candidate port is CQonected to a router vMch one of the 
//other ports on the same router should be connected toJt do^n 't matter 
//at Ibis point if it is the correct top portThat will be corrected in next loop. 
iQ[bottam port bportl of R(ciirrait_FQfW4)is CQnoected to any tc^ port of 

roiUer_oJ(correspofuiif^j)ori(})M^ port bport2 of Ri(cuiTeit_row, i)) { 
i^p<»*tl[=bport2) { 

exchange j}orts(bportl <£R(ciirrait_row, i),bpQrt2 of R(ciirr^t_row, i)); 

} 

} 

} 

} 

foi(tportl=0;<portl<fanout;^ortl++) { 

for(tport2==0;tport2<faiiout;<port2++) { 

//Test to see if the candidate port is ooiniected to a port which one of the 
//other ports on the same router should be connected to. 
i^top port ^lortl of R(ciirrait_rowM, i)is connected to 

correspordingj)ort(isiop port ^port2 of R(cairrCTit_row+l, i)) { 
if[4MH'tl!=1^t2) { 

exchartge _poris(tportl of R(currait_row+l, iXtport2 of R(cuiTOrit_row+l, D); 

} 

} 

} 

} 

} 

// 

//Auxiliary Procedures 
// 

Function router qfiport) 

{ 

xetom(tibe tout^ \idiich port belongs to); 

} 

// 

//Here logical relabelling is assumed possible 
//Other exchange sdiemes can be substituted 

// 

Functi<m exx:hange_ports(portl,port2) 

{ 

pCTtoan^tly divert trafEc originally mtended for portl to port2 ; 
pmaanaitfy div^ trafEc original^ intended for port2 to portl ; 

} 
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Set current_row to 0 
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